home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Exec / Libraries.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  2.1 KB  |  81 lines
  1.  
  2. { 
  3.         exec/libraries.i
  4. }
  5.  
  6. {$I "Include:exec/nodes.i" }
  7.  
  8. CONST
  9.  
  10. { ------ Special Constants --------------------------------------- }
  11.   LIB_VECTSIZE    =  6;    {  Each library entry takes 6 bytes  }
  12.   LIB_RESERVED    =  4;    {  Exec reserves the first 4 vectors  }
  13.   LIB_BASE    = (-LIB_VECTSIZE);
  14.   LIB_USERDEF    = (LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE));
  15.   LIB_NONSTD    = (LIB_USERDEF);
  16.  
  17. { ------ Standard Functions -------------------------------------- }
  18.   LIB_OPEN    =  -6;
  19.   LIB_CLOSE    = -12;
  20.   LIB_EXPUNGE    = -18;
  21.   LIB_EXTFUNC    = -24;    {  for future expansion  }
  22.  
  23. TYPE
  24.  
  25. { ------ Library Base Structure ---------------------------------- }
  26. {  Also used for Devices and some Resources  }
  27.  
  28. Library = record
  29.     lib_Node  : Node;
  30.     lib_Flags,
  31.     lib_pad   : Byte;
  32.     lib_NegSize,        {  number of bytes before library  }
  33.     lib_PosSize,        {  number of bytes after library  }
  34.     lib_Version,        {  major  }
  35.     lib_Revision : Short;   {  minor  }
  36.     lib_IdString : String;  {  ASCII identification  }
  37.     lib_Sum      : Integer; {  the checksum itself  }
  38.     lib_OpenCnt  : Short;   {  number of current opens  }
  39. end;                {  * Warning: size is not a longword multiple ! * }
  40. LibraryPtr = ^Library;
  41.  
  42. CONST
  43.  
  44. {  lib_Flags bit definitions (all others are system reserved)  }
  45.  
  46.   LIBF_SUMMING = %00000001;    {  we are currently checksumming  }
  47.   LIBF_CHANGED = %00000010;    {  we have just changed the lib  }
  48.   LIBF_SUMUSED = %00000100;    {  set if we should bother to sum  }
  49.   LIBF_DELEXP  = %00001000;    {  delayed expunge  }
  50.  
  51.  
  52.  
  53. Procedure AddLibrary(lib : LibraryPtr);
  54.     External;
  55.  
  56. Procedure CloseLibrary(lib : LibraryPtr);
  57.     External;
  58.  
  59. Function MakeFunctions(target, functionarray, dispbase : Address) : Integer;
  60.     External;
  61.  
  62. Function MakeLibrary(vec, struct, init : Address;
  63.             dSize : Integer;
  64.             segList : Address) : LibraryPtr;
  65.     External;
  66.  
  67. Function OpenLibrary(libName : String; version : Integer) : LibraryPtr;
  68.     External;
  69.  
  70. Procedure RemLibrary(library : LibraryPtr);
  71.     External;
  72.  
  73. Function SetFunction(library : LibraryPtr;
  74.             funcOff : Integer;
  75.             funcEntry : Address) : Address;
  76.     External;
  77.  
  78. Procedure SumLibrary(library : LibraryPtr);
  79.     External;
  80.  
  81.